object FrmDemo: TFrmDemo
  Left = 126
  Top = 153
  Width = 896
  Height = 524
  Caption = 'Demo'
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  Scaled = False
  OnCreate = FormCreate
  OnResize = FormResize
  DesignSize = (
    888
    497)
  PixelsPerInch = 96
  TextHeight = 13
  object Gauge1: TGauge
    Left = 8
    Top = 468
    Width = 870
    Height = 17
    Anchors = [akLeft, akTop, akRight]
    ForeColor = clGreen
    Progress = 0
  end
  object Label1: TLabel
    Left = 16
    Top = 16
    Width = 14
    Height = 13
    Caption = 'IP'
  end
  object DBGrid1: TDBGrid
    Left = 174
    Top = 47
    Width = 703
    Height = 379
    Anchors = [akLeft, akTop, akRight, akBottom]
    DataSource = DataSource1
    TabOrder = 0
    TitleFont.Charset = ANSI_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -13
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = #24207#21495
        Title.Alignment = taCenter
        Width = 45
        Visible = True
      end
      item
        Expanded = False
        FieldName = #23383#27573#21517
        Title.Alignment = taCenter
        Width = 93
        Visible = True
      end
      item
        Expanded = False
        FieldName = #20013#25991#35828#26126
        Title.Alignment = taCenter
        Width = 79
        Visible = True
      end
      item
        Expanded = False
        FieldName = #31867#22411
        Title.Alignment = taCenter
        Width = 82
        Visible = True
      end
      item
        Expanded = False
        FieldName = #38271#24230
        Title.Alignment = taCenter
        Width = 46
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Null'
        Title.Alignment = taCenter
        Width = 53
        Visible = True
      end
      item
        Expanded = False
        FieldName = #40664#35748#20540
        Title.Alignment = taCenter
        Width = 56
        Visible = True
      end
      item
        Expanded = False
        FieldName = #35828#26126
        Title.Alignment = taCenter
        Width = 85
        Visible = True
      end>
  end
  object Button1: TButton
    Left = 448
    Top = 10
    Width = 85
    Height = 25
    Caption = #20351#29992#20989#25968#23548#20986
    TabOrder = 1
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 733
    Top = 10
    Width = 85
    Height = 25
    Caption = #25171#24320#20851#38381#34920
    TabOrder = 2
    Visible = False
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 538
    Top = 10
    Width = 85
    Height = 25
    Caption = #23548#20986#34920#26684
    TabOrder = 3
    Visible = False
    OnClick = Button3Click
  end
  object BitBtn1: TBitBtn
    Left = 639
    Top = 10
    Width = 84
    Height = 25
    Caption = #23548#20986'DataSet'
    TabOrder = 4
    Visible = False
    OnClick = BitBtn1Click
  end
  object BitBtn2: TBitBtn
    Left = 811
    Top = 10
    Width = 92
    Height = 25
    Caption = #33258#23450#20041#23548#20986
    TabOrder = 5
    Visible = False
    OnClick = BitBtn2Click
  end
  object Edit1: TEdit
    Left = 40
    Top = 12
    Width = 121
    Height = 21
    TabOrder = 6
    Text = '192.168.9.137'
  end
  object Button4: TButton
    Left = 258
    Top = 10
    Width = 85
    Height = 25
    Caption = 'Link'
    TabOrder = 7
    OnClick = Button4Click
  end
  object CheckListBox1: TCheckListBox
    Left = 16
    Top = 48
    Width = 145
    Height = 377
    ItemHeight = 13
    TabOrder = 8
  end
  object BitBtn3: TBitBtn
    Left = 354
    Top = 10
    Width = 85
    Height = 25
    Caption = #26597#35810
    TabOrder = 9
    OnClick = BitBtn3Click
  end
  object Memo1: TMemo
    Left = 0
    Top = 360
    Width = 73
    Height = 41
    Lines.Strings = (
      
        'select cast('#39'1'#39' as varchar(5)) as '#24207#21495',cast('#39'2'#39' as varchar(20)) as' +
        ' '#23383#27573#21517','
      'cast('#39#39' as varchar(16)) as '#20013#25991#35828#26126',cast('#39'3'#39' as varchar(10)) '#31867#22411','
      
        'cast('#39'4'#39' as varchar(8)) as '#38271#24230',   cast('#39'5'#39' as varchar(20)) as [Nu' +
        'll],'
      
        'cast('#39'5'#39' as varchar(50)) as '#40664#35748#20540', cast('#39'6'#39' as varchar(50)) as '#35828#26126' ' +
        ' into #tmp123'
      'select * from #tmp123')
    ScrollBars = ssBoth
    TabOrder = 10
    Visible = False
  end
  object Button5: TButton
    Left = 264
    Top = 432
    Width = 145
    Height = 25
    Caption = 'Create Tri'
    TabOrder = 11
    OnClick = Button5Click
  end
  object Button6: TButton
    Left = 176
    Top = 432
    Width = 75
    Height = 25
    Caption = 'Drop'
    TabOrder = 12
    OnClick = Button6Click
  end
  object ComboBox1: TComboBox
    Left = 168
    Top = 12
    Width = 81
    Height = 21
    ItemHeight = 13
    ItemIndex = 0
    TabOrder = 13
    Text = 'HotelAh'
    Items.Strings = (
      'HotelAh'
      'HotelErp')
  end
  object Button7: TButton
    Left = 16
    Top = 432
    Width = 65
    Height = 25
    Caption = 'All'
    TabOrder = 14
    OnClick = Button7Click
  end
  object Button8: TButton
    Left = 96
    Top = 432
    Width = 67
    Height = 25
    Caption = 'No All'
    TabOrder = 15
    OnClick = Button8Click
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery2
    Left = 375
    Top = 113
  end
  object DBGridToExcel1: TDBGridToExcel
    DataBeginCol = 2
    MergeTitle = True
    DataBeginRow = 13
    FileName = 'E:\tempabc.xls'
    Grid = True
    Title = #23548#20986#25968#25454#21040'Excel'#30340#26631#39064
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clRed
    TitleFont.Height = -27
    TitleFont.Name = #38582#20070
    TitleFont.Style = [fsBold]
    TitleRow = 11
    TitleCol = 6
    DataFont.Charset = ANSI_CHARSET
    DataFont.Color = clBlack
    DataFont.Height = -12
    DataFont.Name = #23435#20307
    DataFont.Style = []
    HeadFont.Charset = ANSI_CHARSET
    HeadFont.Color = clFuchsia
    HeadFont.Height = -15
    HeadFont.Name = #23435#20307
    HeadFont.Style = [fsBold]
    OnWorkBegin = DBGridToExcel1WorkBegin
    OnWork = DBGridToExcel1Work
    Left = 352
    Top = 144
  end
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=SQLOLEDB.1;Persist Security Info=True;User ID=sa;Initia' +
      'l Catalog=HotelAh;Data Source=192.168.9.137;Use Procedure for Pr' +
      'epare=1;Auto Translate=True;Packet Size=4096;Workstation ID=YBJ;' +
      'Use Encryption for Data=False;Tag with column collation when pos' +
      'sible=False'
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 184
    Top = 120
  end
  object ADOQuery1: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from o_guest')
    Left = 336
    Top = 160
  end
  object ADOQuery2: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <>
    SQL.Strings = (
      
        'select cast('#39'1'#39' as varchar(5)) as '#24207#21495',cast('#39'2'#39' as varchar(20)) as' +
        ' '#23383#27573#21517',cast('#39#39' as varchar(16)) as '#20013#25991#35828#26126',cast('#39'3'#39' as varchar(10)) '#31867#22411 +
        ','
      
        'cast('#39'4'#39' as varchar(8)) as '#38271#24230',   cast('#39'5'#39' as varchar(20)) as [Nu' +
        'll], cast('#39'5'#39' as varchar(20)) as '#40664#35748#20540', cast('#39'6'#39' as varchar(50)) a' +
        's '#35828#26126'  into #tmp123'
      'select * from #tmp123')
    Left = 224
    Top = 152
  end
  object ADOtmp: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 200
    Top = 144
  end
end
